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14-Sep-1984 BASRTL.SRCJBASLEFT.832;1 
3 1 1 MODULE BASSLEFT ( : Extract the sub oie of the BASIC LEFT 
; ¢ ¢ {DENT = *1-005" ! Frce: BASLEFT.B 
; 4 04 1 BEGIN 
: § 06 : leueneenenceconensneceneneerenerecreeresteeeeenenetnenenennunnnnnenteneennees 
; Hid ry 
: 3 4 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
; 0 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. . 
: 19 19 : ? ALL RIGHTS RESERVED. 
: \§ \§ 1 i* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
; 14 14 1 !* INCLUSION ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 15 15 1 !* COPIES THEREOF NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; \$ 3218 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ i 9 : i: TRANSFERRED. : 
; 19 $019 1 i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 1 0021 : :* CORPORATION. : 
; 'e 
; § 09 5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: ¢ 00 ¢ : Ws SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
; 36 0026 1 i ’ 
3 7 00 7 1 PCE ST ISITE Tei T ITT TTT T TTI TI TTT IT it itititiy 
; 8 0028 1! 
; 9 0029 1 
3 0 0030 1 !++ ‘ 
3 1 4 1 : : FACILITY: String support Library 
; 5 0038 | ABSTRACT: 
o-; oe 0035 1! This module extracts a substrin according to the — 
; «36 00 1! BASIC=PLUS-2 syntax. It finds the substring of a main string 
;. 0037 1! starting at the left end of the string (character position 1 
3 $3 0038 1! and continues through the nth character of the string. This 
3 4 Boz ' substring is copied to the destination string. 
; 41 0041 1 i ENVIRONMENT: User mode, AST Level or not or mixed 
; re 0068 1 | AUTHOR: R. WiLL, CREATION DATE: 19-Feb-79 
; «646 Bee zz 
; «645 5 1 ! MODIFIED BY: 
; 646 BO%8 1! 
: 467 0047 1! R. Will, 19-Feb-79: VERSION 01 
; 48 opee 1! 01 - original 
; («49 . = change Linkage and call to COPY routine. 15-Mar-79 RW 
_ = 0050 1! 1-903 - Change string Linkages to start with STR$. JBS 04-JUN-1979 
; «51 9091 1! 1-004 = Change call to STRSSCOPY. JBS 16-JUL-1979 
: 2g O26 : : 1-005 = CALL STRSLEFT. DELETE THIS MODULE WHEN COMPILER CHANGES. RW 31-OCT-79 
; 8 bos 1 
; 0055 1 !<BLF/PAGE> 
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; SWITCHES: 
SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE)- 


i LINKAGES: 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSLEFT : NOVALUE; ! Find the LEFT of a string 


: INCLUDE FILES: 

REQUIRE *RTLIN:RTLPSECT*; ! Declare PSECTS code 
MACROS: 

i EQUATED SYMBOLS: 


' 

! 

1 

4 

1 

i 

i PSECT DECLARATIONS 
DECLARE _PSECTS (BAS); 
OWN STORAGE : 

' 

] 


i EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
STRSLEFT; ! Routine to do the copy 


BASRTL.SRC Bast 
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| BASSLEFT 18-$6 1984 00:41:5 AX-11 Bliss-32 V4.0-742 Page 3 { 
PASSE 1 =300n 1382 90:93:33 YBASRTL SRe BASLEFT.832;1 . (3) 
; 19) 193 1 GLOBAL ROUTINE BASSLEFT (DEST_DESC, ! Pointer to destination descriptor 

a ; 194 1 ! Pointer to source descriptor 
; 103 195 CHAR_POSS : NOVALUE = ' Last character to be included 

; 105 138 1 fee i 
; 1 138 : FUNCTIONAL DESCRIPTION: 
; 108 00 1! This routine extracts the characters starting at the leftmost 

; 109 US character (character position 1) and continuing toreuge the 

3 110 8¢ 1! character position specified by the input and copies that substring 

3; 11 0205 1! to the destination string (by JSB to STRSSCOPY_R_R8) according 

: 11g 061! to the $yntex of the class o me destination poring. 

. F% ~eet If the — character position is > the length of the input string, 

: (116 Be ,: then the ength of the input string is used. If the input character 

; 132 8 44 : position is < 1, the destination becomes a null string. 

3 oF 8 ” : FORMAL PARAMETERS: 

3; 6119 0211 1! DEST _DESC.wt.dx pointer to destination string descriptor 

: 120 0 \§ 1! SRC_BESC.rt.dx pointer to source string descriptor 

: $1 ost? : CHAR_POS.rw.v value of last character position to include 

3 158 0215 1°! IMPLICIT INPUTS: 

3 126 0 Ht 1! 

; 125 0217 1! NONE 

; 126 0218 1! 

3 44 0219 1 ! IMPLICIT OUTPUTS: 

: 128 0220 1! 

; 94 0221 1! NONE 

| bse¢ 1! 
3; 6131 0225 1 ! ROUTINE VALUE: 
3 13 0224 1 ! COMPLETION CODES: | 
; 13 Os¢? 1! 
3 «(134 0 $$ 1! NONE 
3 135 0227 1! 
; «136 ps8 1 ! SIDE EFFECTS: 
s 137 0229 1! 
s 138 0230 1! NONE 
3; «4139 0231 1! 
; 140 OS36 1 !e- 

3 141 0233 1 

3 166 Ose BEGIN 

; 14 0235 

3 61446 bS36 P 

3; «6145 DEST_DESC : REF BLOCK (8,BYTE]; 

3 146 0238 

3 «147 S544 MAP 

3 is 8 “9 SRC_DESC : REF BLOCK (8,BYTE); 

3; 150 0942 STRSLEFT (DEST_DESC (0,0,0,0], SRC_DESC (0,0,0,0), CHAR_POS); 

s 151 bse RETURN; 

: 152 44 ND; ‘End of BASSLEFT 
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ASSLEFT 16-Sep-1984 00:41:5 AX-11 Bliss-32 vee 0-742 Pa 4 
+8 10236871 38e 99593593 BASRTL.SRCJBASLEFT.832;1 wo (3) 
sEXTRN STRSLEFT 
«PSECT _BASSCODE,NOWRT, SHR, PIC,2 


0000 44 ENTRY tay AE Save nothing : 0193 
OC AC OF i PUSHAB CHAR_POS 3: 0242 
7E 04 ag 7D 0000 MOVQ pest. pEsC oo : 
000000006 00 03 FB see CALLS STRSLE 3 
04 00010 RET : 0244 
; Routine Size: 17 bytes, Routine Base: _BASSCODE + 0000 
153 0245 1 
154 ass 1 END . ‘End of module 
155 0247 1 
156 0248 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 17 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASLEF T/OBJ=OBJ$:BASLEFT MSRCS$:BASLEF T/UPDATE=(ENHS$:BASLEF T) 
; Size: 17 code + 0 data bytes 
Run Time 0:01.7 


; Elapsed itaes 00:03.5 
; Lines/CPU Min: 7 

; Lovenes/<PY-tia: 23294 

: ry Used: 18 pages 

; wens ation Complete 
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